home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Examples2 / SuperViewPCQ / PCQ / include / SV / svobjects / svobjectbase.i next >
Encoding:
Text File  |  1997-05-06  |  2.2 KB  |  70 lines
  1. {  svobjects/svobjectbase.h         }
  2. {  Version    : 3.7                 }
  3. {  Date       : 28.04.1994          }
  4. {  Written by : Andreas R. Kleinert }
  5. {  PCQ-Konvertierung by Andreas Neumann }
  6.  
  7. {  SVObject-Version V2.x+ }
  8.  
  9. {$I "include:sv/svobjects/svobjects.i" }
  10.  
  11. {$I "include:exec/lists.i" }
  12.  
  13. {$I "include:exec/libraries.i" }
  14.  
  15.    {  An external support-library for the superview.library is called a
  16.       "svobject".
  17.       Each svobject has to contain a "SVO_ObjectNode" structure (as follows)
  18.       in its Library-Header, which later will be READ and MODIFIED by
  19.       the superview.library.
  20.       Because the superview.library supports three different sorts
  21.       of SVObjects at the time (internal, independent and external),
  22.       there are three different types of this structure (might be more in
  23.       the future), which can be identified via their "svo_ObjectType".
  24.    }
  25.  
  26.    {  The Construction of a svobject :
  27.       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  28.  
  29.       The Library Base
  30.       ----------------
  31.  
  32.       Version MUST be 2 yet, Revision can be set freely
  33.  
  34.       (see structure described below)
  35.  
  36.  
  37.       The Function Table
  38.       ------------------
  39.  
  40.       (see <pragmas/svobjects.h> or Reference_ENG.doc)
  41.  
  42.    }
  43.  
  44. {  *************************************************** }
  45. {  *                                                 * }
  46. {  * Library base Definition for svobjects           * }
  47. {  *                                                 * }
  48. {  *************************************************** }
  49.  
  50. TYPE
  51.     SVObjectBaseType    =   RECORD
  52.  
  53.             svb_LibNode :   Library;    { Exec LibNode                   }
  54.             svb_SVObject :  SVO_ObjectNodePtr;  { POINTER to initialized
  55.                                                   SVO_ObjectNode
  56.                                                   Define it somewhere else,
  57.                                                   then initialize this pointer.  }
  58.  
  59.             svo_Reserved :  ARRAY [1..32] OF INTEGER; { Reserved for future expansion.
  60.                                                         Always NULL yet (Version 1).   }
  61.  
  62.  {
  63.    Private data of the svobject, not to be accessed
  64.    by superview.library, may follow.
  65.  }
  66.  
  67.                         END;
  68.     SVObjectBasePtr =   ^SVObjectBaseType;
  69.  
  70.